library(tidyverse)

This is the import process


library(dplyr)
library(ggplot2)

simulated_patient_data %>%
 filter(start >= "1950-11-10 22:54:30" & start <= "2020-12-04 22:58:46") %>%
 
    filter(marital %in% "S" | is.na(marital)) %>%
 filter(patient_age >= 57L & patient_age <= 
    111L) %>%
 ggplot() +
 aes(x = race, fill = gender) +
 geom_bar() +
 scale_fill_hue() +
 theme_minimal()

This is the data viz

simulated_patient_data %>%
 filter(start >= "1950-11-10 22:54:30" & start <= "2020-12-04 22:58:46") %>%
 
    filter(marital %in% "S" | is.na(marital)) %>%
 filter(patient_age >= 57L & patient_age <= 
    111L) %>%
 ggplot() +
 aes(x = race, fill = gender) +
 geom_bar() +
 scale_fill_hue() +
 theme_minimal()
Error in simulated_patient_data %>% filter(start >= "1950-11-10 22:54:30" &  : 
  could not find function "%>%"

Interactive data viz

library(ggplot2)
library(plotly)
package ‘plotly’ was built under R version 4.0.3Registered S3 method overwritten by 'data.table':
  method           from
  print.data.table     
Registered S3 method overwritten by 'htmlwidgets':
  method           from         
  print.htmlwidget tools:rstudio

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout
p <- ggplot(data = diamonds, aes(x = cut, fill = clarity)) +
            geom_bar(position = "dodge")
ggplotly(p)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KHBsb3RseSkKYGBgCgoKVGhpcyBpcyB0aGUgaW1wb3J0IHByb2Nlc3MKYGBge3J9CgpsaWJyYXJ5KGRwbHlyKQpsaWJyYXJ5KGdncGxvdDIpCgpzaW11bGF0ZWRfcGF0aWVudF9kYXRhICU+JQogZmlsdGVyKHN0YXJ0ID49ICIxOTUwLTExLTEwIDIyOjU0OjMwIiAmIHN0YXJ0IDw9ICIyMDIwLTEyLTA0IDIyOjU4OjQ2IikgJT4lCiAKICAgIGZpbHRlcihtYXJpdGFsICVpbiUgIlMiIHwgaXMubmEobWFyaXRhbCkpICU+JQogZmlsdGVyKHBhdGllbnRfYWdlID49IDU3TCAmIHBhdGllbnRfYWdlIDw9IAogICAgMTExTCkgJT4lCiBnZ3Bsb3QoKSArCiBhZXMoeCA9IHJhY2UsIGZpbGwgPSBnZW5kZXIpICsKIGdlb21fYmFyKCkgKwogc2NhbGVfZmlsbF9odWUoKSArCiB0aGVtZV9taW5pbWFsKCkKCmBgYAoKClRoaXMgaXMgdGhlIGRhdGEgdml6CgpgYGB7cn0Kc2ltdWxhdGVkX3BhdGllbnRfZGF0YSAlPiUKIGZpbHRlcihzdGFydCA+PSAiMTk1MC0xMS0xMCAyMjo1NDozMCIgJiBzdGFydCA8PSAiMjAyMC0xMi0wNCAyMjo1ODo0NiIpICU+JQogCiAgICBmaWx0ZXIobWFyaXRhbCAlaW4lICJTIiB8IGlzLm5hKG1hcml0YWwpKSAlPiUKIGZpbHRlcihwYXRpZW50X2FnZSA+PSA1N0wgJiBwYXRpZW50X2FnZSA8PSAKICAgIDExMUwpICU+JQogZ2dwbG90KCkgKwogYWVzKHggPSByYWNlLCBmaWxsID0gZ2VuZGVyKSArCiBnZW9tX2JhcigpICsKIHNjYWxlX2ZpbGxfaHVlKCkgKwogdGhlbWVfbWluaW1hbCgpCmBgYAoKCkludGVyYWN0aXZlIGRhdGEgdml6CgpgYGB7cn0KbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KHBsb3RseSkKcCA8LSBnZ3Bsb3QoZGF0YSA9IGRpYW1vbmRzLCBhZXMoeCA9IGN1dCwgZmlsbCA9IGNsYXJpdHkpKSArCiAgICAgICAgICAgIGdlb21fYmFyKHBvc2l0aW9uID0gImRvZGdlIikKZ2dwbG90bHkocCkKYGBgCgo=